1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
5 [153]"hhhhhhh`  
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,0:POKEUX,0
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
310 REM PROJECT DIRCTOR: FRANK WINTER
320 REM PROGRAM NAME: FACTOR TRINOMIAL
330 REM WRITTEN BY: J. B. NICHOLSON
340 REM REVISED BY: PETER WAN
350 REM UPDATED BY: BILL CUMBERLAND
400 PRINT"[147]":POKEUT,UL%:POKEUY,0:POKEUX,0:POKE646,13
405 PRINT"              [201]NSTRUCTIONS [146]
410 [153]" (null)HIS PROGRAM IS DESIGNED TO HELP"
415 [153]" YOU PRACTISE YOUR TRINOMIALS ."
420 [153]" RIGHT$T WILL ASK YOU TO GIVE THE CORRECTLY"
425 [153]" FACTORED INTEGER FOR THE QUESTION"
430 [153]" GIVEN."
435 [141]830
440 [153]"PRINTLOAD   (null)EMEMBER TO PRESS (null)VAL(null)(null)(null)(null)WAIT AFTER"
445 [153]"   TYPING YOUR ANSWER."
450 [153]"   (null)HIS TELLS THE COMPUTER TO ACCEPT "
455 [153]"   WHAT YOU HAVE TYPED."
495 [141]830:[142]
500 [143] <YES> SOUND
505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
510 [151]54296,15:[151]54277,42:[151]54278,250
515 [151]54276,23:[151]54273,23:[151]54272,191
520 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
525 [151]54296,0:[142]
530 [143] <NO> SOUND
535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
540 [151]54296,15:[151]54277,18:[151]54278,250
545 [151]54276,33:[151]54273,4:[151]54272,48
550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
555 [151]54296,0:[142]
560 [143] <BLIP> SOUND
565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
570 [151]54296,7:[151]54277,42:[151]54278,250
575 [151]54276,23:[151]54273,23:[151]54272,191
580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
585 [151]54296,0:[142]
590 [129]TM[178]1[164]500:[130]:[142]
591 [129]TM[178]1[164]1000:[130]:[142]
592 [129]TM[178]1[164]2000:[130]:[142]
595 [129]TM[178]1[164]5000:[130]:[142]
800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,3
801 [153]"      A TPUG EDUCATIONAL PROGRAM":[141]590
802 [153]"           FOR C 64 COMPUTERS":[141]590
803 [153]"                                        WAIT";
804 [153]"                FACTOR                  WAIT";
805 [153]"                                        WAIT";
806 [153]"              TRINOMIAL                 WAIT";
807 [153]"                                        WAIT";
808 [153]"                  A                     WAIT";
809 [153]"                                        WAIT":[141]591:[141]560
810 [153]"          INSTRUCTIONS?  Y/N
811 GETR$:IFR$<>"Y"ANDR$<>"N"THEN811
812 IFR$="Y"THENGOSUB400
813 PRINT"[147]  AND AWAY WE GO .....":GOSUB591:GOSUB500:GOSUB590
814 GOTO1000
830 REM
835 GOSUB592:GOSUB560
837 POKEUN,0:PRINTLEFT$(UD$,24);"[153] [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146] [155]"
840 GETUI$:IFUI$<>" "THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
855 PRINT" --------------------------------------"
860 GOSUB591:GOSUB560
865 UH=0:PRINT"":RETURN
875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
905 UD$="":UP$="                                      "
909 RETURN
910 GOSUB900:PRINT"[147] "
920 GOTO800
1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0
1010 UT$=" [198]ACTOR [212]RINOMIAL"
1020 POKEUT,UL%
1210 REM UG$="":UH=0:UP=0:GOSUB850
1220 PRINT"[212]HERE ARE THREE LEVELS OF DIFFICULTY:"
1222 PRINT" 1-EASY, 2-AVERAGE, 3-HARD"
1224 GOSUB591:GOSUB560
1230 PRINT" [215]HICH LEVEL DO YOU CHOOSE? ";
1240 US$="123":UL=1:GOSUB35:L=VAL(UR$)
1250 IFL<1ORL>3THEN1240
1255 GOSUB591:GOSUB560
1260 PRINT" [200]OW MANY QUESTIONS DO YOU WANT?   [157][157]";:US$="0123456789":UL=2
1265 GOSUB35
1270 NO=VAL(UR$):RT=0:HLP=0:WR=0
1275 IF NO<1 THENPRINT"[145][145][145]":GOTO1260
1280 FORJ=1TONO
1290 UH=0:UP=J-1:UG$=" [209]UESTION":GOSUB850
1300 X=INT(26*RND(1)+ 1)
1310 IFX= 9ORX=12ORX=15THEN1300
1320 N1=INT((13+4*L)*RND(1)-4-4*L)
1330 IFN1=0THEN1320
1340 N2=INT((13+4*L)*RND(1)-4-4*L)
1350 IFN2=0THEN1340
1360 B1=N1+N2:C1=N1*N2
1370 IFL=2ANDABS(C1)<35THEN1320
1380 IFL=3ANDABS(C1)<63THEN1320
1390 PRINT"[198]ACTOR:":GOSUB591
1400 POKEUS+202,X:POKEUS+207,X:POKEUS+163,50
1410 PRINT""
1420 T=0:IFABS(B1)<10THENT=1
1430 PRINTTAB(4+T)B1;"[145]"
1440 PRINTTAB( 9)C1
1450 IFB1>0THENPOKEUS+204,43
1460 IFC1>0THENPOKEUS+209,43
1470 IFB1=0THENPOKEUS+206,32:POKEUS+207,32
1480 IFB1=0THEN PRINT"([212]HIS IS NOT A TRINOMIAL.)"
1490 POKEUS+281,61:POKEUS+283,40:POKEUS+284,X
1500 POKEUS+286,43:POKEUS+288,63:POKEUS+289,41
1510 POKEUS+290,40:POKEUS+291,X:POKEUS+293,43
1520 POKEUS+295,63:POKEUS+296,41
1535 PRINT"[153] [206]EED A CLUE? (Y/N)  [155]";
1537 US$="YN":UL=1:GOSUB35:Y$=UR$
1540 IFLEFT$(Y$,1)<>"Y"THEN1560
1550 HLP=HLP+1:GOSUB1990
1560 GOSUB591:GOSUB560
1563 PRINTLEFT$(UD$,18)+"[215]HAT'S THE FIRST MISSING INTEGER? ";
1565 US$="-1234567890":UL=3:GOSUB35:I1=VAL(UR$):REM***I1$
1570 GOSUB591:GOSUB560
1573 PRINTLEFT$(UD$,20)+"[215]HAT'S THE SECOND MISSING INTEGER? ";
1575 US$="-0123456789":UL=3:GOSUB35:I2=VAL(UR$):REM***I2$
1580 PRINT""
1590 T=0:IFABS(I1)<10THENT=1
1600 PRINTTAB( 6+T)I1;"[145]"
1610 T=0:IFABS(I2)<10THENT=1
1620 PRINTTAB(13+T)I2
1630 IFI1<0ANDI1>-10THENPOKEUS+286,32
1640 IFI1>0THENPOKEUS+286,43
1650 IFI2<0ANDI2>-10THENPOKEUS+293,32
1660 IFI2>0THENPOKEUS+293,43
1670 BL$="                                        "
1680 PRINT""
1690 FORI=1TO15
1700 PRINTBL$;:NEXTI
1710 PRINT""
1715 GOSUB500
1720 IF(I1=N1ANDI2=N2)OR(I1=N2ANDI2=N1)THENPRINT"[158] [210][201][199][200][212]! [146][155]":RT=RT+1:KV=1
1722 IFKV=1THENGOSUB835:KV=0:GOTO1850
1724 IFKV=2GOTO1730
1726 GOSUB591:GOSUB530
1728 PRINT"[150] [211]ORRY, TRY AGAIN.[155]":KV=2:GOTO1560
1730 KV=0:PRINT"[158] [206]O, THE CORRECT ANSWER IS":WR=WR+1
1740 POKEUS+403,40:POKEUS+404,X:POKEUS+409,41:POKEUS+410,40:POKEUS+411,X
1741 POKEUS+416,41
1750 PRINT"";
1760 T=0:IFABS(N1)<10THENT=1
1770 PRINT"[145]";TAB(6+T)N1;"[145]"
1780 T=0:IFABS(N2)<10THENT=1
1790 PRINTTAB(13+T)N2
1800 IFN1>0THENPOKEUS+406,43
1810 IFN2>0THENPOKEUS+413,43
1820 PRINT"[206]OTICE THAT (";N1;")+(";N2;") = ";B1
1830 PRINT"   AND THAT (";N1;")X(";N2;") = ";C1
1840 GOSUB835
1850 NEXTJ
1860 UH=0:UG$="[210]ESULT":UP=0
1865 IFNO=1THENUP=0:GOSUB850:PRINT"[212]HAT'S 1 QUESTION.":GOTO1880
1870 UP=0:GOSUB850:PRINT"[212]HAT'S";NO;"QUESTIONS."
1880 PRINT" [217]OU HAD";RT;"CORRECT,";
1890 PC=INT(100*RT/NO+.5)
1900 PRINT"  ([212]HAT'S";PC;"%)"
1905 PRINT" [193]ND YOU HAD";WR;"WRONG."
1910 IFHLP=1THENPRINT"[217]OU ASKED FOR ONE CLUE.":GOTO1930
1920 PRINT" [217]OU ASKED FOR";HLP;"CLUES"
1925 GOSUB592:GOSUB560
1930 PRINT" [196]O YOU WANT MORE QUESTIONS? ";:US$="YN":UL=1:GOSUB35:Y$=UR$
1940 IFY$<> "Y"THEN1980
1950 PRINT" [193]T A DIFFERENT LEVEL? ";:US$="YN":UL=1:GOSUB35:Y$=UR$
1960 IFY$="Y"THEN1210
1970 GOTO1260
1980 REM
1982 PRINT"[147] [210]ETURNING TO THE DISK MENU.
1984 [147]"MENU",8
1986 [138]
1988 [128]
1990 C[178][182](C1)
2000 [153]"LEFT$ERE ARE FACTORS OF ";C;":"
2002 [153]"";
2010 K[178]0
2020 [129]I[178]1[164][186](C[170].5)
2030 Q[178]C[173]I
2040 [139]Q[178][181](Q)[167][153]I;"X";Q;"CMD,";:K[178]K[170]1
2050 [139]K[179]4[167]2070
2060 K[178]0:[153]:[153]"";
2070 [130]I
2080 [141]591:[141]560
2085 [153]"(null)EED ANOTHER CLUE? ";:US$[178]"YN":UL[178]1:[141]35
2090 Y$[178]UR$:[139]Y$[179][177]"Y"[167]2110
2100 [141]2120
2110 [142]
2120 [153]" (null)OU ARE LOOKING FOR TWO INTEGERS WHOSE"
2130 [153]" PRODUCT IS ";C1;"AND WHOSE SUM IS ";B1;"CMD."
2140 [139]C1[177]0[167]2170
2150 [153]" (null)INCE THE PRODUCT IS NEGATIVE, ONE"
2160 [153]" INTEGER IS POSITIVE, ONE IS NEGATIVE.":[137]2230
2170 [139]B1[177]0[167]2210
2180 [153]" (null)INCE THE PRODUCT IS POSITIVE AND THE"
2190 [153]" SUM IS NEGATIVE, BOTH INTEGERS"
2200 [153]" ARE NEGATIVE.":[137]2230
2210 [153]" (null)INCE THE PRODUCT AND SUM ARE BOTH"
2220 [153]" POSITIVE, EACH INTEGER IS POSITIVE."
2230 [142]
2300 [143] WHC 90:12:06